Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/demo/vsbeval3/cus.frm/cus.frm

Visual Basic Form | 1995-08-23 | 4.9 KB | 176 lines

VERSION 2.00
Begin Form Customer
   BackColor       =   &H00C0C0C0&
   Caption         =   "Customer"
   ClientHeight    =   4230
   ClientLeft      =   360
   ClientTop       =   2190
   ClientWidth     =   6150
   FillStyle       =   0  'Solid
   Height          =   4830
   HelpContextID   =   25000
   Icon            =   CUS.FRX:0000
   Left            =   300
   LinkTopic       =   "Form3"
   ScaleHeight     =   4230
   ScaleWidth      =   6150
   Top             =   1650
   Width           =   6270
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Order List"
      Height          =   1650
      Left            =   330
      TabIndex        =   11
      Top             =   1860
      Width           =   5445
      Begin Grid Grid1
         Cols            =   9
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1080
         Left            =   240
         Rows            =   4
         TabIndex        =   12
         Top             =   360
         Width           =   5055
      End
   End
   Begin CommandButton SaveButton
      Caption         =   "Save"
      Height          =   375
      Left            =   2925
      TabIndex        =   10
      Top             =   3645
      Width           =   1095
   End
   Begin CommandButton NextCustomerButton
      Caption         =   "Next Customer"
      Height          =   375
      HelpContextID   =   25030
      Left            =   3555
      TabIndex        =   9
      Top             =   1320
      Width           =   1815
   End
   Begin CommandButton PrevCustomerButton
      Caption         =   "Previous Customer"
      Height          =   375
      Left            =   1140
      TabIndex        =   8
      Top             =   1305
      Width           =   1815
   End
   Begin CommandButton OrderDetailButton
      Caption         =   "See Order Details..."
      Height          =   375
      Left            =   360
      TabIndex        =   7
      Top             =   3660
      Width           =   1935
   End
   Begin CommandButton CloseButton
      Caption         =   "Close"
      Height          =   375
      Left            =   4800
      TabIndex        =   6
      Top             =   3615
      Width           =   975
   End
   Begin TextBox CustomerAddressBox
      Height          =   795
      HelpContextID   =   25020
      Left            =   4125
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   5
      Text            =   "Customer address"
      Top             =   210
      Width           =   1665
   End
   Begin TextBox CustomerIDBox
      Height          =   285
      HelpContextID   =   25010
      Left            =   1575
      TabIndex        =   3
      Text            =   "ID number"
      Top             =   225
      Width           =   1275
   End
   Begin TextBox CustomerNameBox
      Height          =   315
      Left            =   1590
      TabIndex        =   1
      Text            =   "Customer name"
      Top             =   705
      Width           =   2325
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Address"
      Height          =   255
      Left            =   3240
      TabIndex        =   4
      Top             =   240
      Width           =   735
   End
   Begin Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Customer ID"
      Height          =   255
      Left            =   360
      TabIndex        =   2
      Top             =   240
      Width           =   1095
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Customer Name"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   1335
   End
   Begin Menu DBmenu
      Caption         =   "Database"
      Begin Menu findopt
         Caption         =   "Find"
      End
      Begin Menu addopt
         Caption         =   "Add"
      End
      Begin Menu delopt
         Caption         =   "Delete"
      End
   End
   Begin Menu recmenu
      Caption         =   "Record"
      Begin Menu clearopt
         Caption         =   "Clear Fields"
      End
   End
   Begin Menu helpmenu
      Caption         =   "Help"
   End
Sub Close_Click ()
    Customer.Hide
    Main.Show
End Sub
Sub CloseButton_Click ()
    Customer.Hide
    Main.Show
End Sub
Sub OrderDetail_Click ()
    Order.Show
End Sub
Sub OrderDetailButton_Click ()
    Order.Show
End Sub
Sub Save_Click ()
End Sub